open(BUFF,"geneloc.txt");
$line=<BUFF>;
$num = 1;
while(<BUFF>)
{
	chomp($_);
	@a = split(/\t/,$_);
	#print "$a[0] $num\n";
	$hash{"rs$a[0]"} = $num;
	$num++;
}
@final = ();
open(BUFF,"OV_expr_tumor");
open(GENE,">GE.txt");
$final[0] = <BUFF>;
while(<BUFF>)
{
	@a = split(/\t/,$_);
	print $a[0]."\n";
	$final[$hash{"rs$a[0]"}] = $_;
}
#print $final[0]."\n";
for($i=0;$i<@final;$i++)
{
	print GENE $final[$i];
}
